Celestin Apprentice 5/Apprentice-Release5.iso/Source Code/C/Applications/GW AdaEd 1.4.2/GWAdaDemos/Spider/DRAW9.ADA

Text File | 1994-01-11 | 202b | 17 lines

WITH Spider; USE Spider;
PROCEDURE Drawing9 IS
BEGIN
Start;
Black;
WHILE NOT AtWall LOOP
     Step;
END LOOP;

Turn;  Step;  Turn;  Red;

WHILE NOT AtWall LOOP
     Step;
END LOOP;
Quit;
END Drawing9;